8810 S=54272:FORL=0TO24:POKES+L,0:NEXT
8820 POKES+1,68:POKES+5,9:POKES+24,15
8830 FORX=1TO10:POKES+4,17:FORY=1TO500:NEXT:POKES+4,20:NEXT
8840 POKES+4,21:GETQ$:POKES+4,20:IFQ$=""THEN8840
8850 POKES+24,0